<% Dim cont cont=Cint(Request.Querystring("vdat")) %>
<% Dim Total_imagenes , Total_fila , Total_Columna , cont_fila, cont_columna , cont_imagenes, resto Total_imagenes=19 Total_fila=4 Total_Columna=5 cont_fila=0 cont_columna=0 cont_imagenes=1 resto=0 Do while cont_imagenes <% Do while cont_columna <% cont_columna=cont_columna+1 cont_imagenes=cont_imagenes+1 if cont_imagenes>Total_imagenes then cont_fila=Total_fila resto=cont_columna cont_columna=Total_columna else resto=cont_columna end if Loop cont_imagenes=cont_imagenes-resto cont_columna=0 %> <% Do while cont_columna <% cont_columna=cont_columna+1 cont_imagenes=cont_imagenes+1 if cont_imagenes>Total_imagenes then cont_fila=Total_fila resto=cont_columna cont_columna=Total_columna else resto=cont_columna end if Loop cont_columna=0 cont_fila=cont_fila+1 %> <% loop loop %>
fondo<%=cont_imagenes%>
Fondo<%=cont_imagenes%>.gif